HOME FORUMS MEMBERS RECENT POSTS LOG IN  
× Авторизация
Имя пользователя:
Пароль:
Нет аккаунта? Регистрация
Баннер 1   Баннер 2
НОВЫЕ ТОРГОВАЯ НОВОСТИ ЧАТ
loading...
Скрыть
Вернуться   ANTICHAT > ПРОГРАММИРОВАНИЕ > С/С++, C#, Rust, Swift, Go, Java, Perl, Ruby
Перезагрузить страницу Задачки на Паскале!
   
Закрытая тема
 
Опции темы Поиск в этой теме Опции просмотра

Задачки на Паскале!
  #1  
Старый 28.12.2009, 20:55
Буня)))
Новичок
Регистрация: 27.09.2008
Сообщений: 29
С нами: 9273655

Репутация: 36
Question Задачки на Паскале!
Надо написать две легеньких задачки на Паскале.
На С знаю как делать, а с Паскалем не дружу )
Help Please !!!)))

Заранее спасибо

Задачка 1:

Дано три числа. Найти и вывести на экран наименьшее число.

Задачка 2:

Дано два числа. Выводить на экран первое число если оно больше второго, в противоположном случае - виводить на екран второе.
𝕏 Twitter Reddit Telegram Копировать ссылку
 

  #2  
Старый 28.12.2009, 21:21
Dosia
Участник форума
Регистрация: 05.06.2009
Сообщений: 127
С нами: 8912059

Репутация: 249
По умолчанию
Код:
program three_digit;

var
pervoe_chislo,vtoroe_chislo,tretie_chislo:integer;

begin
pervoe_chislo:=5;
vtoroe_chislo:=4;
tretie_chislo:=3;

writeln('zadanie 1');
write('naimenshee chislo = ');
if (pervoe_chislo<vtoroe_chislo) and (pervoe_chislo<tretie_chislo) then
write(pervoe_chislo)
else
if (vtoroe_chislo<pervoe_chislo) and (vtoroe_chislo<tretie_chislo) then
write(vtoroe_chislo) else write(tretie_chislo);

readln;
pervoe_chislo:=5;
vtoroe_chislo:=4;
writeln('zadanie 2');
if (pervoe_chislo>vtoroe_chislo) then writeln(pervoe_chislo) else writeln(vtoroe_chislo);
readln;
end.
Результат работы:
Код:
pervoe_chislo=5;
vtoroe_chislo=4;
tretie_chislo=3;

zadanie 1
naimenshee chislo = 3

pervoe_chislo=5;
vtoroe_chislo=4;

zadanie 2
5

pervoe_chislo=5;
vtoroe_chislo=2;
tretie_chislo=3;

zadanie 1
naimenshee chislo = 2

pervoe_chislo=2;
vtoroe_chislo=4;

zadanie 2
4

pervoe_chislo=5;
vtoroe_chislo=2;
tretie_chislo=1;

zadanie 1
naimenshee chislo = 1

pervoe_chislo=3;
vtoroe_chislo=4;

zadanie 2
4
 

  #3  
Старый 28.12.2009, 21:29
Буня)))
Новичок
Регистрация: 27.09.2008
Сообщений: 29
С нами: 9273655

Репутация: 36
По умолчанию
Спс большое
 

  #4  
Старый 29.12.2009, 16:59
Keltos
Iron Man#2
Регистрация: 08.07.2009
Сообщений: 2,084
С нами: 8865026

Репутация: 2562


По умолчанию
Еще так:

Цитата:
Дано три числа. Найти и вывести на экран наименьшее число.
PHP код:
Program One;
var x,y,z: integer;
begin
 write('Введите числа:');
 read(x,y,z);
 if (x<=y) then
  if (x<=z) then write(x)
  else write(z)
 else
  if (y<=z) then write(y)
  else write(z);
end. 
Цитата:
Дано два числа. Выводить на экран первое число если оно больше второго, в противоположном случае - выводить на экран второе
PHP код:
Program Two;
var x,y: integer;
begin
 write('Введите числа:');
 read(x,y);
 if (x>y) then write(x)
  else write(y);
end. 
 

  #5  
Старый 29.12.2009, 18:14
nerezus
Флудер
Регистрация: 12.08.2004
Сообщений: 3,791
С нами: 11444066

Репутация: 2290


По умолчанию
https://forum.antichat.ru/thread122076.html
closed.
 
Закрытая тема



« Предыдущая тема | Следующая тема »
Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Задачи на паскале. SHAXID Freelance - О Работе 3 26.05.2009 14:33
Напишу курсовую, диплом на Паскале Paladin34 Разное - Покупка, продажа, обмен 0 01.04.2009 12:43
Создай свою игру на паскале (часть 1) fduck Болталка 47 22.03.2009 01:26
3 задачки по физике dimhee Болталка 6 07.12.2008 03:24



Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
 


Быстрый переход




ANTICHAT ™ © 2001- Antichat Kft.