search points attachment profile arrow left arrow right star heart verified symbols equation arrow-down question mark check menu accountancyadministrationagriculturalalgebraallarabicartart_musicbelarusbelarus_altbiologybusinesscatalachemistrychineseeconomicsegzamenglishentrepreneurshipenvironmentethicseuskarafirst_aidfrenchgalegogeographygeologygeometrygermangrammarhealthhistoryindia_langindonesian_langinformaticsitalianjapanesekazachkazach_altkoreanlanguagelatinlawlife_scienceliteraturelogicmathematicsmusicnigerian_langother_languagesotherspedagogicsphilosophyphysical_educationphysicspoliticspsychologyreligionrpa_langrussianrussian_altsciencesecurityskillssocial_sciencesociologyspanishstatisticstechnologytourismtrafficukrainianukrainian_altukrainian_literaturewos_civilisation accountancyadministrationagriculturalalgebraall_1arabicartart_music_2belarusbelarus_altbiologybusiness_2catalachemistry_1chineseeconomicsexam_3englishentrepreneurshipenvironment_2ethicseuskarasecurity_1frenchgalegogeography_4geology_4geometrygermangrammarhealthhistoryindia-langindonesian-langinformaticsitalianjapanesekazachAsset 230koreanlanguagelatinlawlife-scienceliteraturelogic_2mathematicsmusicnigerian-langotherlanguagesother_1pedagogicsphilosophyphysical_educationphysicspoliticspsychologyreligion_1rpa-langrussianrussian_altsciencesecurity_3_mskills_1allsocial_science_5_msociologyspanishstatisticstechnologytourismtrafficukrainianukrainian_altukrainian_literaturewos_civilisation

Цикл с параметром и ветвление.
Выполните тест
Тест для проверки знаний основных операторов на Паскале.

1 Какой из циклов записан правильно?
1 ) for а:=15 to 20 do;
2 ) for k:=20 to 3 do;
3 )for d:=15 downto 4 ;
4 )for x:= -11 to -1;

2 Что будет выведено на экране в ходе выполнения программы for k:=0 to 3 do write(k);

3 Сколько раз выполнится цикл for k:=20 to 50 do write(k)?

4 Определите значение переменной b после исполнения данного алгоритма.
a := 5;
b := –3;
a := b + a * 3;
b := 360 / a;
b := a + b;

5 Выбрать оператор ветвления:
1 ) case ... of
2) if … then … else
3) while ... do
4) for ... to ... do

6 Какой ответ выдаст данная программа, если а=10?
var a: integer;
begin
write('Введите целое число ');
readln(a);
if a>0 then a:=a+1 else a:=a-2;
write(a)
end.
Опишите значение каждой строки и каждого оператора.

9 Выбрать верную запись оператора:
1) writeln(‘Я изучаю программирование);
2) writelen(‘Я изучаю программирование);
3) writeln(‘Я изучаю программирование’);
4) writeln(‘Я изучаю программирование’;

10 Укажите переменную типа Real:
1) K:=-0.2
2) C:= 64000
3) X= '5.5'
4) y:=false

Задание для самостоятельного выполнения:
1 Составьте блок-схему алгоритма и программу вывода на экран всех двузначных
чисел, кратных 9
2 Составьте программу вычисления суммы всех трехзначных чисел, кратных 17

lexa57575

Ответ

Ответ дан
chistyakovzahar

ответ на самостоятельную а тест щя решу

Program Pr1;

uses crt;

var mas:array[100..999] of integer;

i:integer;

Begin

clrscr;

for i:=100 to 999 do mas[i]:=i; {1 sposob}

for i:=100 to 999 do if mas[i] mod 9 =0 then writeln(mas[i]);

i:=100; {2 sposob}

while i<=999 do begin

if mas[i] mod 9=0 then writeln(mas[i]);

i:=i+1;

end;

i:=100; {3 sposob}

repeat

if mas[i] mod 9=0 then writeln(mas[i]);

i:=i+1

until i=999

end.


2)


Program Pr1;

uses crt;

var mas:array[100..999] of integer;

i,v:integer;

Begin

clrscr;

v:=0;

for i:=100 to 999 do mas[i]:=i; {1 sposob}

for i:=100 to 999 do if mas[i] mod 17 =0 then v:=v+mas[i];

writeln(v);

i:=100; {2 sposob}

v:=0;

while i<=999 do begin

if mas[i] mod 17=0 then v:=v+mas[i];;

i:=i+1;

end;

writeln(v);

i:=100; {3 sposob}

v:=0;

repeat

if mas[i] mod 17=0 then v:=v+mas[i];

i:=i+1

until i=999;

writeln(v);

end.

Ответы и объяснения

Не тот ответ, который тебе нужен?


По всем вопросам пишите на - vashurokk@rambler.ru