Проверка домашнего задания Ввод и вывод данных. Напишите что выполняет команда : 1. Write( ), 2. Writeln( ), 3. Read(), 4. ReadLn(). - презентация

1 Проверка домашнего задания Ввод и вывод данных

2 Напишите что выполняет команда : 1. Write( ), 2. Writeln( ), 3. Read(), 4. ReadLn().

3 Решение задач на составление линейных алгоритмов

4 Что будет выведено на экран в результате выполнения следующей программы: Program z1; Begin Writeln(Привет, это я, продвинутый компьютер!); Writeln (Я знаю, что 6*5=, 6*5); End.

5 Составить программу вычисления суммы трех данных целых чисел. Program summa; Vara,b,c,S:integer;Begin а:=3; в:=5; с:=10; S:=a+b+c;WriteLn(S);End. WriteLn(Сумма S=,S); WriteLn(Сумма S=,S);

6 Даны целые числа Х, У, С. Напишите программу, которая вычисляет следующее выражение: (х+у) / (2 с). Program vse; Varx,y,c,S:integer;BeginS:=(x+y)/2*c;WriteLn(S);End. WriteLn(Выражение S=,S); WriteLn(Выражение S=,S);

7 Даны x, y, z. Написать программу для вычисления

8 Program vse; Var x,y,z,a: real; Begin Write(введите значение x=); Readln(x); Write(введите значение y=); Readln(y); Write(введите значение z=); Readln(z); a:=(2*x+3*y-z)/(3+2*x); Writeln(a=,a); End.

9 Задан квадрат с длиной стороны a. Найти его площадь. Program ploh; Vara,S:real;Begin Write(введите значение a=); Readln(a);S:=a*a; Write(площадь=,S); End.

10 Задан прямоугольник со сторонами a и в. Найти его площадь. Program ploh; Var a,в,S:real; Begin Write(введите значение a=); Readln(a); Write(введите значение в=); Readln(в); S:=a*в; Write(площадь=,S); End.

11 Найдите и исправьте ошибки в программе program a; var a, b, c: integer; begin writeln(введите значения переменных a и b); read(a,b);writeln((a+b+c)/3);end.

12 Найдите и исправьте ошибки в программе program a; var a, b, c: integer; begin writeln(введите значения переменных a и b); read(a,b);writeln((a+b+c)/3);end.

13 Напишите программу для нахождения суммы цифр трехзначного числа. Program summa; Vara,b,c,S:integer;Begin Write(введите первую цифру числа =); Readln(а); Write(введите вторую цифру числа =); Readln(в); Write(введите третью цифру числа =); Readln(с);S:=a+b+c; WriteLn(Сумма S=,S); End.

14 Домашнее задание: учить по конспекту. учить по конспекту.