Переписать программу с Pascal - C (СИ)

Узнай цену своей работы

Формулировка задачи:

имеется программа на языке паскаль надо переделать на си))если условие задачи нужна будет то напишу))
var
a,b,s,i,t:integer;
d:array[1..30]of integer;
begin
randomize;
writeln('vvedite vysotu dereva');
readln(b);
writeln('vvedite vysotu ulitki');
readln(a);
while a>b do
begin
writeln('vysota ulitki vyshe dereva');
writeln('vvedite druguyu vysitu ulitki');
readln(a);
end;
repeat
writeln('vvedite den nabludeniya');
readln(t);
until t<=30;
writeln('pogoda: 1-yasno, 0-pasmurno');
for i:=1 to 30 do
begin
d[i]:=random(2);
write(d[i],' ');
end;
writeln;
for i:=1 to 30 do
begin
if d[i]=1 then
  begin
    s:=0;
     while (a<b)and(s<2)do
       begin
       inc(a);
       inc(s);
     end;
   end
   else if a>0 then dec(a);
 if i=t then writeln('v den ',t,' vysota=',a);
 end;
 writeln('v konce mesyaca vysota=',a);
readln;
end.

Решение задачи: «Переписать программу с Pascal»

textual
Листинг программы
do
{
  printf("Vvedite denj nabludenija: ");  
  scanf("%d",&t);
}
while(t>30);

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

6   голосов , оценка 3.5 из 5