Gennadevich Aleksandr
?>

Как вывести на экран результат вычислений? (программа паскаль, 8 класс)

Информатика

Ответы

Urmanov19903131
В коде написать writeln(то, что нужно, например переменная a) а если хотите вывести текст, то writeln('Текст')
writeln - смена строки после ввода
Скворцов
//Pascal ABC.NET v3.1 сборка 1172

type
 re=Record
  name:string;
  res:integer;
 end;

 Const
 n=3;

Var
 ar:array[1..n] of re;
 i,j,c:integer;
 cs:string;
begin;
for i:=1 to n do
 begin
  write('Введите имя участника №',i,':');
 readln(ar[i].name);
  write('Введите результат участника №',i,':');
 readln(ar[i].res);
 end;
 for i:=1 to n-1 do
  for j:=i to n do
  if ar[i].res>ar[j].res then
   begin;
   c:=ar[i].res;
   ar[i].res:=ar[j].res;
   ar[j].res:=c;
   cs:=ar[i].name; 
  ar[i].name:=ar[j].name;
   ar[j].name:=cs;
   end;for i:=1 to n do
writeln(i,' ',ar[i].name,' ',ar[i].res);
end.

Пример ввода:
Двачевская
23
Персунов
22
Хацуне
3
Пример вывода:
1 Хацуне 3
2 Персунов 22
3 Двачевская 23
Михайлович1309
// PascalABC.NET 3.1, сборка 1172 от 19.02.2016
begin
  var s:=Range(1,ReadInteger('n='),2).Select(x->Rec(x,x*x,x*x*x));
  foreach var e in s do
    Writeln(e.Item1:10,e.Item2:10,e.Item3:10)
end.

Тестовое решение:
n= 20
         1         1         1
         3         9        27
         5        25       125
         7        49       343
         9        81       729
        11       121      1331
        13       169      2197
        15       225      3375
        17       289      4913
        19       361      6859

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

Как вывести на экран результат вычислений? (программа паскаль, 8 класс)
Ваше имя (никнейм)*
Email*
Комментарий*

Популярные вопросы в разделе

Кулагина_Владимир1179
iracaenko153
voloshin238
fixer2006
Sergei248
skvorec3424
diannaevaaa
ea9824165833886
jurys71242
u-bhank
mvv-155
vadimnechaev23150
Volkanovaa19
tatianaesipenko
antilopa001