Нужна сделать лабораторную работу по технологиям ​
кто может - напишите , я скину полностью

ответ

4,0/5

2

SilverWind

   середнячок

   8 ответов

   2.6 тыс. пользователей, получивших

1. вывести на экран 6 раз своё имя

program imya;

const n=6;

var i:integer;

begin

for i:=1 to n do

writeln('ваше имя');

end.

Пояснения: делала с цикла (можно было написать и шесть раз writeln, но так удобнее). Переменную n ввела для быстрого изменения значений (если нужно будет написать имя не 6, а, к примеру, 8 раз, нужно было заменить только вначале). Ещё хочу отметить, что имя вводится по-английски и нельзя терять апострофы ( ' ).

2. program sum;

var sum:integer;

m:array[1..4] of integer;

i:integer;

begin

m[1]:=6

for i:=2 to 4 do begin

m[i]:=m[i-1]+1;

end;

sum:=m[1];

for i:=2 to 4 do begin

sum:=sum+m[i];

end;

writeln(sum);

end.

Пояснения: можно было делать и по-другому, но так тоже верно. Тут использовалось два цикла и массив. А блок-схему сами сделайте)))

3. program n!;

var n:real;

c:integer;

m:array[1..n] of integer;

begin

readln(n)

m[1]:=1;

for i:=2 to n do begin

m[i]:=m[i-1]+1;

end;

c:=m[1]

for i:=1 to n do begin

c:=c*m[i];

end;

writeln('n!',c);

end.

Если что не понятно, пишите, объясню

Объяснение:

сосиска

Program p452;
var
  a,b,m,d:integer;
begin
  Write('Введите размеры форточки (а,b) в см: ');
  Read(a,b);
  Write('Введите диаметр головы Васи в см: ');
  Read(d);
  if a<b then m:=a+2 else m:=b+2;
  { +2 - это зазор по 1 см с обоих сторон }
  if d<=m then Writeln('Голова проходит')
  else Writeln('Голова не проходит')
end.

Тестовое решение:
Введите размеры форточки (а,b) в см: 25 40
введите диаметр головы Васи в см: 23
Голова проходит

program p453;
var
  a,b,c,x,y,m1,m2,n1,n2:integer;
begin
  Write('Введите размеры кирпича в см (a,b,c): ');
  Read(a,b,c);
  Write('Введите размеры отверстия в см (x,y): ');
  Read(x,y);
  if a<b then
    if a<c then begin
      m1:=a;
      if b<c then m2:=b else m2:=c
    end
    else begin m1:=c; m2:=a end
  else
    if b<c then begin
      m1:=b;
      if a<c then m2:=a else m2:=c
    end
    else begin m1:=c; m2:=b end;
  if x<y then begin n1:=x; n2:=y end
  else begin n1:=y; n2:=x end;
  if (m1<=n1) and (m2<=n2) then Writeln('Кирпич пройдет в отверстие')
  else Writeln('Кирпич не пройдет в отверстие')
end.

Тестовое решение:
Введите размеры кирпича в см (a,b,c): 10 4 12
Введите размеры отверстия в см (x,y): 5 9
Кирпич не пройдет в отверстие

program p454;
var
  a,b:integer;
begin
  Write('Введите значения а и b: '); Read(a,b);
  Writeln('Размеры чемодана ',3*a,'x',2*a,'x',a);
  Writeln('Размеры коробки ',3*b,'x',2*b,'x',b);
  if b<a then Writeln('Коробка поместится в чемодан')
  else Writeln('Коробка не поместится в чемодан')
end.

Тестовое решение:
Введите значения а и b: 18 16
Размеры чемодана 54x36x18
Размеры коробки 48x32x16
Коробка поместится в чемодан