daniele_f.p@hotmail.com comentou em 04-05-2012

nao consigo baixar ja estou ficando desesperada oque faço??

Responder

murilobrito comentou em 08-03-2011

não consigo concluir esse programa quando tento executar aparece a seguinte mensagem "a cadeia deve ser fechada antes do fim" mas não sei o que fazer ? será que alguém pode me ajudar? {5) Elabore um programa que solicite ao usuário o nome, sexo e salário de 30 funcionários. O seu programa deverá determinar e escrever: a) qual o maior salários das mulheres; b) média de salário das mulheres; c) nome e salários de todos os funcionários do sexo masculino cujo salário é superior a média geral dos salários; d) nome das mulheres cujo o salário é superior a média dos salários das mulheres } Program Pzim ; var nome:array[1..30] of string; sexo:array[1..30] of string; salario:array[1..30] of real; medtotal,somahom,somamul:real; Begin medtotal:=0; somahom:=0; somamul:=0; for cont:=1 to 30 do begin write ('informe o nome: '); read (nome[cont]); write ('informe o sexo: '); read (sexo[cont]); write ('informe o salario: '); read (salario[cont]); soma:=soma+salario[cont]; if (sexo='f') or (sexo='F') then begin somamul:=somamul+salario[cont]; qtmul:=qtmul+1; end; if (sexo='m') or (sexo='M') then begin somahom:=somahom+salario[cont]; qthom:=qthom+1; end; medtotal:=somahom+somamul/qtdtotal; medmul:=somamul/qtmul; end ; begin if (sexo='m') or (sexo='M') and (salario[cont]>medtotal) then writeln (nome[cont],'possui salário maior que a média geral'); if (sexo='f') or (sexo='F') and (salario[cont]>medmul) then writeln (nome[cont],'possui salário maior que a média do salário das mulheres); end;

Responder

alencar moreira comentou em 23-12-2010

Existe pascal-zim para Kubuntu 10.4 so Linux

Responder

igor3m comentou em 23-09-2010

O algoritmo pede para calcular o valor de S, exprimindo os valores intermediarios. Não consigo chegar a soma real. Alguem pode me ajudar? Program CalculoDeS; Uses crt; var soma,num:real; cont:integer; begin Writeln ('S= 1/1-3/2+5/3-7/4+...-99/50'); num:=1; soma:=0; For cont:=1 to 50 do begin If cont mod 2=0 Then begin soma:= (soma-num)/cont; writeln; writeln ('Valores intermediarios: -',num:0:0,'/',cont); end else begin soma:=(soma+num)/cont; writeln; writeln ('Valores intermediarios: ',num:0:0,'/',cont); end; num:=num+2; end; writeln; writeln; textcolor (yellow); writeln ('O valor de S e: ',soma:6:3); readln (soma); end.

Responder

Nandinhoo comentou em 17-05-2010

Não estou conseguindo nem iniciar este programa: Fazer um programa no PascalZim que: a. Leia 2 matrizes A e B (dimensão máxima 10x10) b. Se estas matrizes forem quadradas exibir: a matriz resultante da soma (C), da multiplicação (D) e a diagonal principal de A, B, C e D c. Se as matrizes não forem quadradas exibir: a matriz resultante da multiplicação (D) e a matriz transposta de D O programa não deve permitir que se digitem matrizes que não possam ser somadas e/ou multiplicadas

Responder