Ветвления на Паскале.
Программирование
диалога с компьютером.
1. Составьте на Паскале программу определения минимума из трёх чисел с использованием логических операций. Программа должна иметь дружественный интерфейс.
program minimum;
var A,B,C,D: real;
readln (A,B,C)
if (A<=B) and (A<=C) then D:=A;
if (B<=A) and (B<=C) then D:=B;
if (C<=A) and (C<=B) then D:=C;
writeln(«Наименьшее число»;D);
2. Составьте на Паскале программу, которая запрашивает возраст двух детей (Саши и Маши), а затем выводит информацию о том, кто из них старше.
program Age;
var S,M:integer;
write(«Возраст Саши»);
write(«Возраст Маши»);
if M>S then writeln(«Маша старше»);
if S>M then writeln(«Саша страше»);
3. Запишите на языке Паскаль программу, которая по номеру дня недели будет выводить его название.
program day;
var D:integer;
Программирование ветвлений в Паскале.
write(«Введите номер дня недели»);
Источник: satanapechetbliny.blogspot.com
Составьте на Паскале программу, которая запрашивает возраст двух детей (Саши и Маши), а затем выводит информацию о том, кто из них старше
Как быстро выучить стихотворение наизусть? Запоминание стихов является стандартным заданием во многих школах.
Как научится читать по диагонали? Скорость чтения зависит от скорости восприятия каждого отдельного слова в тексте.
Как быстро и эффективно исправить почерк? Люди часто предполагают, что каллиграфия и почерк являются синонимами, но это не так.
Как научится говорить грамотно и правильно? Общение на хорошем, уверенном и естественном русском языке является достижимой целью.
- Обратная связь
- Правила сайта
Источник: www.soloby.ru
Электронная тетрадь Дарьи Игнатьевой
Program one
Var a,b,c:integer;
Begin
WriteLn(‘a=’);
ReadLn(a);
WriteLn(‘b=’);
ReadLn(b);
WriteLn(‘c=’);
ReadLn(c);
If (a
Else If (b
Else If (c
Else if a=b=c Then Writeln(‘числа равны’);
End.
2. Составьте на Паскале программу, которая запрашивает возраст двух детей (Саши и Маши), а затем выводит информацию о том, кто из них старше.
Program two
Var a,b:integer;
Begin
WriteLn(‘Возраст Саши’);
ReadLn(a);
WriteLn(‘Возраст Маши’);
Pascal ABC.NET vs Python. Решение задачи №5 (циклический алгоритм) при помощи нейросети ChatGPT
ReadLn(b);
If a>b Then WriteLn(‘Саша старше Маши’)
Else If b Else If a=b Then WriteLn (‘Возраст Маши равен возрасту Саши’);
End.
3. Запишите на языке Паскаль программу, которая по номеру для недели будет выводить его название.
Program three
Var x:integer;
Begin
WriteLn(‘Введите номер дня недели’);
ReadLn(x);
If x=1 Then WriteLn(‘понедельник’)
Else If x=2 Then WriteLn(‘вторник’)
Else If x=3 Then WriteLn(‘среда’)
Else If x=4 Then WriteLn(‘четверг’)
Else If x=5 Then WriteLn(‘пятница’)
Else If x=6 Then WriteLn(‘суббота’)
Else If x=7 Then WriteLn(‘воскресенье’)
Else If x>7 Then WriteLn(‘нет такого дня недели’);
End.
4. Что вычисляет приведённая ниже программа? Приведите два примера исходных данных и результата
Program example;
Var x,y,z,I :integer;
Begin
ReadLn(a,b,c);
i:=0;
If a>0 then i:=i+1;
If b>0 then i:=i+1;
If c>0 then i:=i+1;
WriteLn(i)
End.
Эта программа вычисляет количество введенных чисел больше нуля.
Пример исходных данных и результата:
I
x=5
y=-3
z=1
i=2
II
x=0
y=28
z=-5
i=1
Источник: ignatjeva.blogspot.com