1. ЦИКЛ for на языке Pascal ABCa. вывести на экран числа от 0 до 9b. в...

August 2022 1 9 Report

1.    ЦИКЛ for на языке Pascal ABC

a.    вывести на экран числа
от 0 до 9

b.    вывести на экран числа
от 0 до 10

c.    вывести на экран числа
1,3,5,7,…21

d.    вывести на экран числа
2,4,6,8,…22

e.    вывести на экран числа
10, 9, 8, … 1

f.     вывести на экран числа
100, 90, 80, … 10

g.    найти сумму чисел от 1
до 10

h.    найти произведение
чисел от 1 до 5

i.      найти сумму модулей от
-5 до 5

j.      вывести буквы от ‘A’
до ‘Z’ (использование for для работы с перечисляемыми нечисловыми типами)

Answers & Comments

preceptor Program TaskC;
Var i, il: Integer;
Begin
For i := 1 To 21 Do
If i Mod 2 = 1 Then
Write(i, ' ');
i := i + 1;
End;
ReadLn;
End.

Program TaskD;
Var i: Integer;
Begin
For i := 1 To 11 Do
Write(i * 2, ' ');
End;
ReadLn;
End.

Program TaskE;
Var i: Integer;
Begin
For i := 10 DownTo 1 Do
Write(i, ' ');
ReadLn;
End.

Program TaskF;
Var i: Integer;
Begin
For i := 10 DownTo 1 Do
Begin
Write(i * 10, ' ');
End;
ReadLn;
End.

Program TaskG;
Var i, sum: Integer;
Begin
For i := 1 To 10 Do
sum := sum + i;
WriteLn(sum);
ReadLn;
End.

Program TaskH;
Var i, product: Integer;
Begin
product := 1;
For i := 1 To 5 Do
product := product * i;
WriteLn(product);
ReadLn;
End.

Program TaskI;
Var i, sum: Integer;
Begin
For i := -5 To 5 Do
sum := sum + Abs(i);
WriteLn(sum);
ReadLn;
End.

Program TaskJ;
Var c: Char;
Begin
For c := 'A' To 'Z' Do
Write(c, ' ');
ReadLn;
End.

6 votes Thanks 8

Kasper19 Спасибо, но как я понял это турбо паскаль?
просто не могу доработать эти программы в абц

preceptor Я их сам писал на ABC и проверял так же.

preceptor Что именно не можете сделать?

Kasper19 ну тогда в каждой программе получается ридлн лишней командой) И не понимаю команды While i > 0 Do(можно ли ее представить через for?), и команда Char - не понятна. (тк я только начал изучать паскаль и не особо могу в него вникнуть)

Kasper19 за исправление того что попросил, буду очен благодарен и конечно посталю Луч Реш))

preceptor ReadLn; всегда пишу, так как то может компилить программу на Турбо или Борланд Паскале. Это чтобы не закрывало сразу после вывода, я думаю вы поняли.

preceptor While i > 0 Do(представил через for)
Char - это тип переменной "символ". У вас условие стоит "использование for для работы с перечисляемыми не числовыми типами". А Char - это и есть не числовой тип.

Kasper19 можете все while исправить на for? просто не понимаю как заменить на for.
вот как я изменил и выдает ошибку в 6-ой строке: Program TaskC;
Var i: Integer;
Begin
For i:=1 to 21 Do
Begin
i := i + 1;
Write(i, ' ');
i := i + 1;
End;
ReadLn;
End.

preceptor Все исправил.

Kasper19 Спасибо)

Answers & Comments

1informacionnyj obyom stati 48 kbajt skolko stranic zajmyot statya esli na o

1osushestvite cepochku prevrashenij n2 nono2hno3cuno32cuoh2 dlya

matematicheskij mayatnik dlinoj 995 sm za 1 minutu sovershal 30 polnyh kolebanij

uskorenie svobodnogo padeniya na poverhnosti luny 16 ms2 kakoj dliny dolzhen b

1 cikl while a vyvesti na ekran chisla 24816321024 2b vyves

1 for random a vyvesti sluchajnoe kolichestvo sluchajnyh chiselb vyves

kg kakoj moshnosti nagrevatel nuzhen dlya rasplavleniya za 10 min 6 kg lda pri te

priznaki geneticheskogo ryada nemetalla

kak poluchit p2o5 iz ph3

zapolnitmassiv iz 1000 elementov znacheniyami indeksov massiva sleduyushim obrazom

рекомендуемые вопросы

Helpful Links

Helpful Social