Здрасти! Сможете, пожалуйста, написать текст данной задачки на языке Pascal, заранее
Здрасти! Можете, пожалуйста, написать текст данной задачки на языке Pascal, заблаговременно благодарен!
Вот если что начало:
Type Anketa = RecordNomer:string[10];Summa:string[6];Vid:string[2];end;Var G:Array[1..3] of Anketa;I:byte;Otvet:string[6];Beginfor i:=1 to 3 dobeginWrite('Введите номер счёта: ');Readln(G[i].Nomer);Write('Введите сумму: ');Readln(G[i].summa);Write('Введите вид операции(снятие/пополнение): ');Readln(G[i].vid);end;Writeln('Информация о состоянии счёта');Write('Введите номер счёта, состояние которого надо посмотреть: ');readln(otvet); For i:=1 to 3 do
Задать свой вопрос
Ржищина
Виктория
Ну пожалуйста помогите
Ульяна Локшенко
У мен будет два
1 ответ
Олежка Горохов
Type schet = Record
Nomer:integer;
Summa:real;
Vid:string[10];
Fio:string[40];
Summa1:real;
end;
Var G:Array[1..10] of schet;
I:byte;
Begin
for i:=1 to 10 do
begin
Write('Введите номер счёта: ');
Readln(G[i].Nomer);
Write('ФИО клиента: ');
Readln(G[i].Fio);
Write('Сумма счета: ');
Readln(G[i].Summa);
Write('Введите вид операции(снятие/пополнение): ');
Readln(G[i].vid);
Write('Введите сумму снятия/пополнения): ');
Readln(G[i].Summa1);
Writeln(10,'Информация о состоянии счёта');
if G[i].Vid='пополнение'
then G[i].Summa:=G[i].Summa+G[i].Summa1
else
G[i].Summa:=G[i].Summa-G[i].Summa1;
writeln(10,'ФИО: ', G[i].Fio:5,10,' счета: ', G[i].Nomer,10,'Сумма счета: ', G[i].Summa,10);
end;
end.
Nomer:integer;
Summa:real;
Vid:string[10];
Fio:string[40];
Summa1:real;
end;
Var G:Array[1..10] of schet;
I:byte;
Begin
for i:=1 to 10 do
begin
Write('Введите номер счёта: ');
Readln(G[i].Nomer);
Write('ФИО клиента: ');
Readln(G[i].Fio);
Write('Сумма счета: ');
Readln(G[i].Summa);
Write('Введите вид операции(снятие/пополнение): ');
Readln(G[i].vid);
Write('Введите сумму снятия/пополнения): ');
Readln(G[i].Summa1);
Writeln(10,'Информация о состоянии счёта');
if G[i].Vid='пополнение'
then G[i].Summa:=G[i].Summa+G[i].Summa1
else
G[i].Summa:=G[i].Summa-G[i].Summa1;
writeln(10,'ФИО: ', G[i].Fio:5,10,' счета: ', G[i].Nomer,10,'Сумма счета: ', G[i].Summa,10);
end;
end.
, оставишь ответ?
Похожие вопросы
-
Вопросы ответы
Новое
NEW
Статьи
Информатика
Статьи
Последние вопросы
В сосуде 4целых одна пятая литр воды что бы заполнить сосуд
Математика.
Двум малярам Диме И Олегу поручили выкрасить фасад дома они разделили
Разные вопросы.
найти порядковый номер 41Э если в ядре 20 нейтронов
Разные вопросы.
в ряду натуральных чисел 3, 8, 10, 24, … 18 одно
Математика.
Предприятие по производству с/хоз продукции на производство затратило 3527000 руб Валовый
Разные вопросы.
Математика, задано на каникулы. ВАРИАНТ 1004
НОМЕР 1,2,3,4,5,6,7,8.
Математика.
Имеются три конденсатора емкостью С1=1мкФ, С2=2мкФ и С3=3мкФ. Какую наименьшую емкость
Физика.
Из точки м выходят 3 луча MP MN и MK причём
Геометрия.
выпиши в свою тетрадь те правила этикета которые тебе не были
Разные вопросы.
Анна хорошо учится у неё много подруг свободное от учёбы время
Обществознание.
Облако тегов