Написать программу которая 10 раз выводит на екран имя и фамилию. это турбо паскаль - использование цыклов while, for и других. ))

ниже жирным шрифтом код программы на паскале. в фигурных скобках обычным шрифтом - комментарии. можно их оставить - компилятор не сможет их прочитать и программа все равно будет работать.

 

 

program printname; var first_name, family_name : string; i : byte;

beginwrite('введи свое имя: '); readln(first_name); {считываем имя в переменную first_name}write('введи свою фамилию: '); readln(family_name); {считываем фамилию в переменную family_name}for i : = 1 to 10 do writeln(family_name, ' ', first_name); {в цикле for со счетчиком i изменяющимся от 1 до 10 печатаем строки с фамилией и именем через пробел}end.

// программа выводит по 10 раз имя и фамилию тремя разными циклами for while

// repeat until

 

program loopname;

uses crt;

var name,s_name: string;

        i: integer;

begin

    clrscr;

    write('введите имя: ');

    readln(name);

    write('введите фамилию: ');

    readln(s_name);

    writeln('цикл for');

 

    for i: =1 to 10 do writeln(name,'   ',s_name );

 

    writeln;

  writeln('цикл while');  

    i: =1;

    while (i< =10) do

      begin  

          writeln(name,'   ',s_name );

            i: =i+1;

        end;  

 

    writeln;  

    writeln('цикл repeat until');

         

    i: =0;  

    repeat

          writeln(name,'   ',s_name );

            i: =i+1;

      until(i=10);  

    readkey;  

  end.

 

 

 

 

Алг

нач

  цел n,j,i,n0

  цел таб k[1: 20]

  вывод "введите размер последовательности n> 1", нс

  ввод n

  если n> 1 то

      вывод "введите элементы последовательности, целые числа", нс

      i: =0

      нц n раз

          i: =i+1

          ввод k[i]

          если k[i] = 0 то

              n0: =i

          все

        кц

      нц для j от 1 до n0

          вывод k[j]

      кц

  все

кон

Unit unit1; {$mode objfpc}{$h+} interface uses  classes, sysutils, fileutil, forms, controls, graphics, dialogs, stdctrls,  spin, math; type   { tform1 }   tform1 = class(tform)    button1: tbutton;     edit1: tedit;     edit2: tedit;     label1: tlabel;     label2: tlabel;     label3: tlabel;     label4: tlabel;     procedure button1click(sender: tobject);   private    { private declarations }  public    { public declarations }  end; var  form1: tform1; implementation {$r *.lfm} { tform1 } procedure tform1.button1click(sender: tobject); begin  form1.label4.caption: =floattostr(tan((strtofloat(form1.edit1.text)*2)+strtofloat(form1.edit2.; end; end.