Тема: Команда Ветвления (ненадо делать мне Паскаля) 1.Ввести число. Если оно чётное, разделить его на 4, если нечётное - унможить на 5.
2. Ввести рост человека. Вывести на экран "ВЫСОКИЙ", если его рост превышает 180 см, и "НЕ ОЧЕНЬ ВЫСОКИЙ" в противном случае.
3.Составить программу, которая спрашивает возраст человека и, если ему 18 лет и больше, сообщает "Замечательно. Вы уже можете водить автомобиль", а в противном случае - "К сожалению, водить автомобиль Вам рановато".
И НАЧИНАЙТЕ С ДАНО, НАЙТИ, ПОТОМ ЧЕРТИТЕ ВЕТВЛЕНИЕ
ответ: 2 ВАРИАНТ)
var
x:real;
begin
x:=(32+45)/(2+7);
writeln('x=',x:4:2);
readln;
end.
Объяснение:
1 ВАРИАНТ)
var
x:char;
begin
x:=(32+45)/(2+7);
writeln('x=',x:4:2);
readln;
end.
НЕ ПОДХОДИТ, Т.К. для x указан тип данных - символьный. var x:char;
2 ВАРИАНТ)
var
x:real;
begin
x:=(32+45)/(2+7);
writeln('x=',x:4:2);
readln;
end.
ПОДХОДИТ, Т.К. всё верно.
3 ВАРИАНТ)
var
x:real;
begin
x:=(32+45)/(2+7);
end.
НЕ ПОДХОДИТ, Т.К. программа не делает вывод ответа.
4 ВАРИАНТ)
var
x:real;
begin
x:=(32+45)*(2+7);
writeln('x=',x:4:2);
readln;
end.
НЕ ПОДХОДИТ, Т.К. допущена ошибка при записи уравнения. Указано умножение, вместо деления (32+45) * (2+7)
// PascalABC.NET 3.0, сборка 1088
var
i,s:integer;
begin
i:=231; s:=0;
repeat
s:=s+i; i:=i+2
until i>400;
Writeln('Сумма нечетных чисел на интервале [230;400]: ',s)
end.
Результат выполнения программы:
Сумма нечетных чисел на интервале [230;400]: 26775
2) вычислить квадратные корни из чисел : 900, 893, 886,... до тех пор пока это можно делать
// PascalABC.NET 3.0, сборка 1088
var
i:integer;
begin
i:=900;
repeat
Write('(',i:3,',',sqrt(i):9:5,') ');
i:=i-7
until i<0;
Writeln;
end.
Результат выполнения программы:
(900, 30.00000) (893, 29.88311) (886, 29.76575) (879, 29.64793)
(872, 29.52965) (865, 29.41088) (858, 29.29164) (851, 29.17190)
(844, 29.05168) (837, 28.93095) (830, 28.80972) (823, 28.68798)
... часть строк пропущена
(130, 11.40175) (123, 11.09054) (116, 10.77033) (109, 10.44031)
(102, 10.09950) ( 95, 9.74679) ( 88, 9.38083) ( 81, 9.00000)
( 74, 8.60233) ( 67, 8.18535) ( 60, 7.74597) ( 53, 7.28011)
( 46, 6.78233) ( 39, 6.24500) ( 32, 5.65685) ( 25, 5.00000)
( 18, 4.24264) ( 11, 3.31662) ( 4, 2.00000)
3) найти сумму чисел шестизначного числа
// PascalABC.NET 3.0, сборка 1088
var
n:longint;
s:integer;
begin
Write('n='); Read(n);
repeat
s:=s + (n mod 10);
n:=n div 10
until n=0;
Writeln('Сумма цифр числа равна ',s)
end.
Тестовое решение:
n=472305
Сумма цифр числа равна 21