Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 05.10.2015, 18:47   #1
Lexa_alex
Новичок
Джуниор
 
Регистрация: 05.10.2015
Сообщений: 1
По умолчанию Помогите разобраться с кодом

Что делает этот код?
Код:
script 
Id---()

comander----{}{password},
Comander----{}{login}
{Disk C}

{uses PT4;
var a,b,c,x;real;
begin
  Task('If12');
  readln(a,b,c);
  if (a<b) and (a<c) then x:=a;
  if (b<a) and (b<c) then x:=b;
  if (c<a) and (c<b) then x:=c;
end.
}

{uses PT4;
var x,f:real;
begin
Task('If26');
readln(x):
if (x<0) or (x=0) then
begin
f:=(-1)*x;
writeln(f);
end
else
if (x>2) or (x=2);
begin
then f:=4;
write(f)
end;
else
begin 
g:=x*x;
writeln(f);
end;
end;
end.
}

{uses PT4;
var x,f:real;
begin
Task('If26'); 
readln(x);
if x<=0 then f:=(-1)*x;
if x<=2 then f:=4.00;
 if (x>0) and (x<2) then f:=sqr(x);
writeln(f);
end.
}
{
uses PT4;
var x, a:real;
begin
 Task('If26');
readln(x);
if (x<0) or (x=0) then a:=(-1)*;
writln('f(x)=',a)
else a:=x*x
writeln('f(x)=',a)
end;
end.
}
end.
Lexa_alex вне форума Ответить с цитированием
Старый 05.10.2015, 18:55   #2
min@y™
Цифровой кот
Старожил
 
Аватар для min@y™
 
Регистрация: 29.08.2014
Сообщений: 7,656
По умолчанию

тут комменты сплошь.
где взял?
Расскажу я вам, дружочки, как выращивать грибочки: нужно в поле утром рано сдвинуть два куска урана...
min@y™ вне форума Ответить с цитированием
Старый 05.10.2015, 19:01   #3
Аватар
Старожил
 
Аватар для Аватар
 
Регистрация: 17.11.2010
Сообщений: 19,042
По умолчанию

Задачки для Taskbook чтоль?
Если бы архитекторы строили здания так, как программисты пишут программы, то первый залетевший дятел разрушил бы цивилизацию
Аватар вне форума Ответить с цитированием
Старый 05.10.2015, 21:36   #4
Serge_Bliznykov
Старожил
 
Регистрация: 09.01.2008
Сообщений: 26,238
По умолчанию

точно, решение задачек из TaskBook для Pascal ABC/Pascal ABC.NET

причём, код с ошибками. Первая, по крайней мере, с синтаксическими и логическими ошибками..
Serge_Bliznykov вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Помогите разобраться с кодом Coolmem PHP 23 22.04.2015 15:07
Помогите разобраться с кодом! Astiya Помощь студентам 3 29.03.2015 15:33
Помогите разобраться с кодом braviatry11 Общие вопросы Delphi 3 12.06.2014 19:29
помогите разобраться с кодом samosval Assembler - Ассемблер (FASM, MASM, WASM, NASM, GoASM, Gas, RosAsm, HLA) и не рекомендуем TASM 0 27.12.2007 00:20